COBOL ডেটাবেস প্রোগ্রামিং এর উদাহরণ

COBOL-এ ডেটাবেস প্রোগ্রামিং সাধারণত Indexed Files, Relative Files, অথবা Sequential Files এর মাধ্যমে করা হয়। COBOL নিজেই কোনও রিলেশনাল ডেটাবেস পরিচালনা করতে সক্ষম নয়, তবে এটি ফাইল সিস্টেমের মাধ্যমে ডেটাবেস ম্যানেজমেন্ট কাজ করে। এখানে, আমরা একটি Indexed File ব্যবহার করে একটি সাধারণ ডেটাবেস প্রোগ্রাম তৈরি করব, যা গ্রাহকের তথ্য সংরক্ষণ করবে এবং সেই তথ্য অনুসন্ধান করতে সহায়ক হবে।

উদাহরণ: COBOL ডেটাবেস প্রোগ্রামিং

এখানে একটি COBOL প্রোগ্রাম দেখানো হচ্ছে যা Indexed File ব্যবহার করে একটি গ্রাহক ডেটাবেস তৈরি করবে। গ্রাহকের তথ্য যেমন গ্রাহক আইডি, নাম, এবং বয়স সংরক্ষণ করা হবে এবং গ্রাহক আইডি দিয়ে ডেটা অনুসন্ধান করা যাবে।

1. ফাইল ডেফিনিশন (Indexed File):

       IDENTIFICATION DIVISION.
       PROGRAM-ID. CustomerDatabaseExample.

       DATA DIVISION.
       FILE SECTION.
       FD  CUSTOMER-FILE.
       01  CUSTOMER-RECORD.
           05  CUSTOMER-ID    PIC 9(4).
           05  CUSTOMER-NAME  PIC X(30).
           05  CUSTOMER-AGE   PIC 99.

       WORKING-STORAGE SECTION.
       01  END-FILE          PIC X VALUE 'N'.
       01  CUSTOMER-ID-KEY   PIC 9(4).

       PROCEDURE DIVISION.
           OPEN I/O CUSTOMER-FILE
           PERFORM MENU
           CLOSE CUSTOMER-FILE
           STOP RUN.

       MENU.
           DISPLAY "Choose an option:"
           DISPLAY "1. Add new customer"
           DISPLAY "2. Search customer by ID"
           DISPLAY "3. Exit"
           ACCEPT CUSTOMER-ID-KEY
           IF CUSTOMER-ID-KEY = 1
               PERFORM ADD-CUSTOMER
           ELSE IF CUSTOMER-ID-KEY = 2
               PERFORM SEARCH-CUSTOMER
           ELSE
               MOVE 'Y' TO END-FILE
           END-IF.

       ADD-CUSTOMER.
           DISPLAY "Enter Customer ID: "
           ACCEPT CUSTOMER-ID
           DISPLAY "Enter Customer Name: "
           ACCEPT CUSTOMER-NAME
           DISPLAY "Enter Customer Age: "
           ACCEPT CUSTOMER-AGE
           WRITE CUSTOMER-RECORD
           DISPLAY "Customer added successfully."

       SEARCH-CUSTOMER.
           DISPLAY "Enter Customer ID to search: "
           ACCEPT CUSTOMER-ID
           READ CUSTOMER-FILE
               KEY IS CUSTOMER-ID
               AT END
                   DISPLAY "Customer not found."
               NOT AT END
                   DISPLAY "Customer Name: " CUSTOMER-NAME
                   DISPLAY "Customer Age: " CUSTOMER-AGE
           END-READ.

ব্যাখ্যা:

1. FILE SECTION:
   • CUSTOMER-FILE: এটি একটি Indexed File হিসেবে ডিফাইন করা হয়েছে।
   • CUSTOMER-RECORD: এটি একটি রেকর্ড, যা CUSTOMER-ID, CUSTOMER-NAME, এবং CUSTOMER-AGE ধারণ করে।
2. WORKING-STORAGE SECTION:
   • END-FILE: ব্যবহারকারী যখন প্রোগ্রাম বন্ধ করতে চায়, তখন এটি চেক করা হবে।
   • CUSTOMER-ID-KEY: এটি ব্যবহারকারী ইনপুটের জন্য একটি ভেরিয়েবল যা বিভিন্ন অপশন চিহ্নিত করবে (যেমন নতুন গ্রাহক যোগ করা বা গ্রাহক অনুসন্ধান করা)।
3. PROCEDURE DIVISION:
   • OPEN I/O CUSTOMER-FILE: ফাইলটি ইনপুট/আউটপুট মোডে খোলা হয়েছে, যাতে ফাইল থেকে ডেটা পড়া এবং ফাইলে ডেটা লেখা যায়।
   • ADD-CUSTOMER: নতুন গ্রাহক যোগ করার জন্য একটি প্রক্রিয়া তৈরি করা হয়েছে। গ্রাহক আইডি, নাম, এবং বয়স ইনপুট নেয়ার পর ফাইলে লেখা হবে।
   • SEARCH-CUSTOMER: গ্রাহক অনুসন্ধানের জন্য একটি প্রক্রিয়া তৈরি করা হয়েছে। ইনপুট গ্রাহক আইডি দিয়ে ফাইল থেকে সেই গ্রাহকের তথ্য অনুসন্ধান করা হবে।
4. Indexed File:
   • CUSTOMER-ID: গ্রাহক আইডি এখানে মূল কী (key) হিসেবে ব্যবহৃত হচ্ছে, যার মাধ্যমে ডেটা অনুসন্ধান করা যাবে।

২. Indexed File তৈরি এবং পড়া

COBOL-এর Indexed File ব্যবহারের মাধ্যমে দ্রুত অনুসন্ধান এবং ডেটা আপডেট করা সম্ভব। এখানে, READ এবং WRITE স্টেটমেন্ট ব্যবহার করে ডেটা পড়া এবং লেখা হচ্ছে। ফাইলের মধ্যে গ্রাহক আইডি (Customer ID) একটি কী হিসেবে কাজ করে, যার মাধ্যমে নির্দিষ্ট রেকর্ড দ্রুত পাওয়া যায়।

৩. COBOL-এ Indexed File ব্যবহারের সুবিধা:

• দ্রুত অনুসন্ধান: Indexed File-এর মাধ্যমে কী ব্যবহার করে দ্রুত ডেটা অনুসন্ধান করা যায়, যা সাধারণ ফাইল ব্যবস্থাপনার চেয়ে অনেক দ্রুত।
• ডেটা অ্যাক্সেস: Indexed File-এ নির্দিষ্ট কী অনুসারে ডেটা এক্সেস করা সহজ।
• রেকর্ড আপডেট: Indexed File-এর মাধ্যমে ডেটার আপডেট (REWRITE) এবং ডিলিট (DELETE) করা সম্ভব।

সারসংক্ষেপ

COBOL-এ Indexed File ব্যবহার করে ডেটাবেস অ্যাপ্লিকেশন তৈরি একটি শক্তিশালী কৌশল, যা ডেটা স্টোরেজ, অনুসন্ধান এবং ম্যানিপুলেশনকে দ্রুত এবং কার্যকরী করে তোলে। Indexed File-এর মাধ্যমে KEY ব্যবহার করে দ্রুত ডেটা অ্যাক্সেস এবং আপডেট করা সম্ভব, যা বড় পরিমাণ ডেটার ব্যবস্থাপনায় বিশেষভাবে উপকারী। COBOL-এর Indexed File-এ ডেটাবেস অ্যাপ্লিকেশন তৈরি করা সহজ এবং কার্যকরী, বিশেষত ব্যবসায়িক সিস্টেমে ব্যবহারের জন্য।